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NEW RELEASES, VERSIONS, AND A WARNING 


Any programming endeavor of the magnitude of the MDBS software will 
•necessarily continue to evolve over time. Realizing this. Micro Data 
Base Systems, Inc., vows to provide its users with updates to this 
version for a nominal handling fee. 

New versions of MDBS software will be considered as separate products. 
However, bona fide owners of previous versions are generally entitled 
to a preferential rate structure. 

Finally, each copy of our software is personalized to identify the 
licensee. There are several levels of this personalization, some of 
which involve encryption methods guaranteed to be combi nator i ally 
difficult to decipher. Our products have been produced with a very 
substantial investment of capital and labor, to say nothing of the 
years of prior involvement in the data base management area by our 
principals. Accordingly, we are seriously concerned about any 
unauthorized copying of our products and will take any and all 
available legal action against illegal copying or distribution of our 
products. 


DISCLAIMER NOTICE 

All rights reserved. No part of this material shall be 
reproduced, stored in a retrieval system, or transmitted by any means, 
electronic, mechanical, photocopying, recording, or otherwise, without 
written permission from Micro Data Base Systems, Inc. 

Although care has been""taken in the preparation of this material, 
Micro Data Base Systems, Inc. assumes neither responsibility for 
errors or omissions, nor for damages resulting from the use of the 
information contained herein. Micro Data Base Systems, Inc. does not 
warrant its accuracy nor guarantee the operation of the system in 
every instance described herein. 

The reader/user assumes full liability and all risk for any 
damages resulting from the use of the information contained herein, 
and for determining whether the information contained herein is 
suitable for user's intended purpose. 

Micro Data Base Systems, Inc. reserves the right to incorporate 
design improvements and new functions in its software products and 
software systems. Recent improvements may not always be reflected in 
documentation. 
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PREFACE 


Although the great majority of MDBS features and facilities are 
independent of the host operating system and host programming 
languages, there are some system specific aspects. These include the 
installation procedures, execution command lines, DML command forms, 
and data item-host language variable correspondences. This manual 
presents the system specific aspects that are needed in order to use 
MDBS DDL/DMS, MDBS-QRS , MDBS-RCV, MDBS-DMU and MDBS-IDML. 


This manual consists of the following eight chapters: 

I. FILE NAMES 

A. File Names for MDBS Software 

B. Fully Qualified File Names in CP/M 

C. Special Keys when Using Interactive MDBS Software under 
CP/M 

D. MP/M Environments 

E. Contention Count Time 

F. The Renaming Utility 

II. INSTALLATION and TESTING PROCEDURES 


A. Installing MDBS. DDL and MDBS . DMS 

B. MDBS Linker 

C. Testing 

D. Alternative MDBS. DMS Installation Method 

III. INVOKING MDBS. DDL 


IV. OPERATING SYSTEM DEPENDENT DEFAULTS- 


A. File name defaults for areas 

B. File extension defaults 

C. Pages per area default 

D. Page size default 

E. Page size restrictions 


V. DATA ITEM - HOST LANGUAGE VARIABLE CORRESPONDENCE 


A. Non-numeric Data Items 

B. Integer Data Items 

C. Unsigned Data Items 

D. Internal Decimal Data Items 

E. Real Data Items 

F. Repeating Data Items 


VI. CONTROL PROCEDURES 


A. Running an Application Program 

B. Special Link Files 

C. Alternative Control Procedures 
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I. FILE NAMES 


A. File Names for MDBS Software 

The MDBS software and the software of MDBS add-on packages are 
furnished in a collection of files. In the CP/M:PASCAL MT+ (2.2 and 
later versions of CP/M) environment, these files have the following 
names : 


READ. ME 

If this file is provided, it contains special 
notes, announcements and comments which you should 
read. 

FNDMS . PAS 

external definition include file 

DMS . REL 

MDBS. DMS library (standard form) 

DBRUN. REL 

runtime loader component 

FPMT. REL 

language interface with floating point real 
conversion routines 

BCDMT. REL 

language interface with BCD real conversion 
r out i nes 

A. REL 

MDBS. DMS component 

OS. REL 

CP/M interface 

Z. REL 

MDBS. DMS component 

RTL.REL 

MDBS. DMS library ( RTL form) 

DATACOD.COM 

DATACOD relocatable file utility 

DDL.COM 

MDBS. DDL object code 

DDL1.0VL 

MDBS. DDL overlay 1 

DDL2 . OVL 

MDBS. DDL overlay 2 

DDLS . OVL 

MDBS. DDL overlay 3 

SAMPLE. PAS 

direct call sample program (for use with 
SAMPLE. DDL) 

SAMPLE. DDL 

sample ddl specification 

QRS.COM 

MDBS.QRS object code 

QRSO .OVL 

QRS support overlay 0 

QRS1 . OVL 

QRS support overlay 1 

QRS2 .OVL 

QRS support overlay 2 

QRS3 . OVL 

QRS support overlay 3 

QRS4 .OVL 

QRS support overlay 4 

QRS5 . OVL 

QRS support overlay 5 

QRS6 .OVL 

QRS support overlay 6 

QRS7.0VL 

QRS support overlay 7 

QRS8 .OVL 

QRS support overlay 8 

IDML. COM 

MDBS. IDML object code 

IDML1 .OVL 

IDML support overlay 1 

IDML2.0VL 

IDML support overlay 2 

IDML3 .OVL 

IDML support overlay 3 

IDML4 . OVL 

IDML support overlay 4 

IDML5 .OVL 

IDML support overlay 5 

RIDML.COM 

MDBS. IDML object code (RTL form) 

RIDML1 . OVL 

RIDML support overlay 1 

RIDML2 . OVL 

RIDML support overlay 2 

RIDML3 . OVL 

RIDML support overlay 3 

RIDML4.0VL 

RIDML support overlay 4 

RIDML5 .OVL 

RIDML support overlay 5 

UTIL. ERR 

error messages for QRS, IDML 

DMS . ERR 

error messages for DMS 

DMU.COM 

MDBS . DMU object code 

RCV.COM 

object code for the MDBS-RTL recovery program:RCV 


c 


Special 


Keys when Using Interactive MDBS Software under CP/M 


RETURN (ENTER) 
CONTROL-X 

CONTROL-E 

CONTROL- I 
CONTROL-C 

ESCAPE 

CONTROL-P 

CONTROL-S 

CONTROL-Q 


terminates an input line 

interrupts a line entry and restarts the input 
line 

causes a character deletion in the line being 
input 

causes a tab character to be placed in the line 
returns control to the operating system (hard 
interrupt ) 

causes the prompt of the interactive software to 
appear (soft interrupt) 

toggles the interactive software output between 
the console and printer 

causes a pause in the output from interactive 
software 

causes output from interactive software to resume, 
following a CONTROL-S pause 


D. MP/M Environments 

All MDBS software for use under CP/M (versions 2.2 and later) can 
also be used under MP/M. This manual applies equally to MP/M and 
CP/M. Note: MP/M is too large to allow the use of MDBS-IDML or MDBS- 
QRS with a one user configuration. They can be used under MP/M with 
the 1-4, and over 4 multiuser versions of MDBS. 

MDBS access speeds depend on many factors including the extent of 
an application, the quality of scheme design, the host language used, 
the quality of application programming, data volume, the hardware 
used, and the operating system. Due to the directory utilization 
approaches of CP/M and MP/M, it is generally true that MDBS provides 
faster access under CP/M than under MP/M. 


E. Contention Count Time 


The unit of time used with 
command is one clock tick (i.e., 
MCC command in the MDBS DMS Manua 


MP/M 

1/50 

1 . 


for 
or 1/ 


the DMS 
60 of a 


contention count 
second). See the 
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II. INSTALLATION AND TESTING PROCEDURES 


A. Installation 

1. MDBS. DDL 

MDBS. DDL is installed by simply copying ("PIP"ing with the 
ov option) the DDL.COM, DDL1.0VL, DDL2.0VL, and DDL-3. OVL 
files to a working disk. Because MDBS. DDL uses an overlay 
technique, this working disk must reside on the default 
drive in order to execute. 

2. MDBS . DMS 

If you have PASCAL MT+ Version 5.5 or greater: Use MTPLUS 

to compile PINI.SRC, thereby producing PINI.ERL. 

If you have version 5.5 or greater (including LIB): 

Prior to linking MDBS. DMS and your application program, you 
need to create a CP/M DMS library (to be called CPMDMS.REL). 
This requires the use of a library manager (e.g.. Digital 
Research's LIB). Create CPMDMS.REL by entering the 
following operating system command line: 

LIB CPMDMS = DMS, OS, A 

If RTL is to be used, the installation procedure is the 
same, except that you should enter CPMRTL instead of CPMDMS 
and RTL instead of DMS; this creates a CP/M RTL library. 
The library creation process assumes that the DMS.REL (or 
RTL. REL for RTL), OS.REL, and A.REL files are on the default 
drive. Now copy CPMDMS.REL (or CPMRTL. REL for RTL), 
FPMT.REL, BCDMT.REL, and FNDMS.PAS to a working disk. 

If you do not have LIB: 

Copy DMS.REL (or RTL. REL for RTL), OS.REL, A.REL, FPMT.REL, 
BCDMT.REL, and FNDMS.PAS to a working disk. 


B. MDBS Linker 

The MDBS linker for selectively linking MDBS. DMS with your 
application program is on the MLINK.COM, MLINK1.0VL, and M L INK 2 . OV L 
files. These files should be on the default drive. MLINK is invoked 
by : 

MLINK -Z -X pgm - LCPMDMS - LPASL IB . ERL 

Here, pgm denotes the fully qualified file name (or names), containing 
compiled program(s) to be linked. If more than one is specified, they 
should be separated by spaces. The linked program is written to a 
file having the same name as the first pgm file used with MLINK, 
except it has a .COM extension. An alternative output file name can 
be specified by including -Oalt prior to pgm, where alt is the fully 
qualified alternative output file name (MLINK -Oalt pgm ...). The -L 
option indicates that MLINK will selectively link needed object 
modules from the indicated REL file (e.g., CPMDMS). 
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III. INVOKING MDBS. DDL 


The operating system command string for executing MDBS. DDL is: 

DDL f ully-qualif ied-f ile-name -Bnnnn 

where the f ully-qualif ied-f ile-name and -Bnnnn arguments are optional. 
If the f ully-qualif ied-f ile-name is omitted, then the MDBS. DDL program 
responds with the :: prompt and is ready for interactive usage (see 
VI-A,B of the MDBS DDL Manual). If a fully-qual if ied-f ile-name is 
specified, then MDBS. DDL is executed on a batch basis (see VI-C of the 
MDBS DDL Manual). The contents of this file must be a valid DDL 
specification. For instance, 

DDL TRIAL. DDL 

will cause MDBS. DDL to analyze the DDL specification contained in the 
TRIAL. DDL file on the default drive. 

The other optional argument (-Bnnnn) can be ignored in this 
environment . 
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V. DATA ITEM - HOST LANGUAGE VARIABLE CORRESPONDENCE 


This chapter shows the type, size, and value correspondences that 
exist between MDBS data items and PASCAL MT+ variables. Correct usage 
of D ML create, put, and get commands depends on a knowledge of these 
correspondences. Other DML commands (e.g., FMSK) also require input 
from a PASCAL MT+ variable, where the variable must be consistent with 
a data item of a particular type and size. 


A. Non-numeric Data Items 

MDBS_Data_It£ro 

MDBS-type MDB£_size 

binary n 

character n 

string n 

date 

time 


£ABCAL_MT±_yeiiable 

packed array [l:n] of char 
packed array [l:n] of char 
string t n ] 

packed array [1:10] of char 
packed array [1:9] of char 


B. Integer Data Items 

The host language variables that are consistent with various 
sizes of an integer data item are presented in Table V-l. This table 
also shows the mappings of data values from PASCAL MT+ variables into 
integer data items during data storage (e.g., CRS, PFM, etc.). 
Similarly, the mappings of data values from integer data items to 
corresponding PASCAL MT+ variables during data retrieval (e.g., GFM) 
are shown. 

As an example, when storing a data value from a PASCAL MT+ 
integer variable into a one byte integer data item, the value must be 
in the range -128 to 127. Any other value for the PASCAL MT+ integer 
variable will not be permitted and the DML command that attempts to 
store such a value will return a command status of 33. When 
retrieving a data value from a three byte integer data item into a 
PASCAL MT+ integer variable, an appropriate value in the range -32768 
to 32767 is deposited in the PASCAL MT+ variable. If the stored value 
is outside of this range, then the contents of the PASCAL MT+ variable 
will be undefined. As a third example, suppose we want to store the 
value 32700 into a four byte integer data item. This is accomplished 
with a put command that uses a PASCAL MT+ integer variable having the 
value 32700. 
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c. 


Unsigned Data Items 


The host language variables that are consistent with various 
sizes of an unsigned data item are presented in Table V-2. This table 
also shows the mappings of data values from PASCAL MT+ variables into 
unsigned data items during data storage (e.g., CRS, PUTM, etc.). 
Similarly, the mappings of data values from unsigned data items to 
corresponding PASCAL MT+ variables during data retrieval (e.g., GETM) 
are shown. 


As an example, when storing a data value from a byte variable 
into a one byte unsigned data item, the variable's value must be in 
the range 0 to 255. 

When retrieving a data value from a 3 byte unsigned data item 
into a word variable, an appropriate value in the range 0 to 65535 is 
deposited into the word variable. If the unsigned stored value is 
65533, then it is returned as the value 65533. If the unsigned value 
is greater than 65535, then the value of the PASCAL MT+ variable will 
be undefined. 


D. Internal Decimal Data Items 

The host language variables that are consistent with various 
sizes of an idee data item are presented in Tables V-3a and V-3b. 
These tables also show the largest relative error that can occur when 
storing data into various sizes of idee data items and when retrieving 
data from various sizes of idee data items. Consult Table V-3a when 
the PASCAL MT+ B option is used. Consult Table V-3b when the B option 
is not used. 

: When storing data values into an idee data 
item, there is no potential for overflow. When retrieving data from 
an idee data item, overflow occurs if the stored data value has an 
absolute value greater than 1.000 * 10^ 4 . 

When storing data values into an idee data 
item, there is no potential for overflow. When retrieving data from 
an idee data item, overflow occurs if the stored data value has an 
absolute value greater than 1.844 * 10 19 . 
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Table V-3a. Internal Decimal Correspondences 

(with B option) 


MDBS Data Item 

PASCAL MT+ 
Variable 

Storing Data 

Retrieving Data 

MDBS type 

MDBS size 

PASCAL MT+ 
type 

Largest Relative Error 

Largest Absolute Error 


1 or 2 

real (BCD) 

5.000 * 10“ 3 

1.000 * 10 -4 

idee 

3 or 4 

real (BCD) 

5.000 * 10 -5 

1.000 * 10 -4 

idee 

5 or 6 

real (BCD) 

5.000 * 10" 7 

1.000 * 10" 4 

idee 

7 or 8 


5.000 * 10~ 9 

1.000 * 10 -4 

idee 

9 or 10 

real (BCD) 

5.000 * 10~ n 

1.000 * 10~ 4 

idee 

11 or 12 

real (BCD) 

5.000 * 10" 13 

1.000 * 10 -4 

idee 

13 or 14 


5.000 * 10 -15 

1.000 * 10~ 4 

idee 

15 or 16 

real (BCD) 

5.000 * 10~ 17 

1.000 * 10 -4 

idee 

17 or 18 

real (BCD) 

5.000 * 10" 19 

1.000 * 10" 4 

idee 

> 18 

real (BCD) 

0 

1.000 * 10" 4 
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E. Real Data Items 


The host language variables that are consistent with various 
sizes of a real data item are presented in Tables V-4a and V-4b. 
These tables show the largest relative error that can occur when 
storing data into various sizes of real data items and when retrieving 
data from various sizes of real data items. Consult Table V-4a when 
the PASCAL MT+ B option is used. Consult Table V-4b when the B option 
is not used. 

Wj.th_thfi_B_QPti.Qn : When storing data values into a real data 
item, there is no potential for overflow. When retrieving data from a 
real data item, overflow occurs if the stored data value has an 
absolute value greater than 1.000 * 10- 1 - 4 . 

WithQUt_thfi_B_.Qpti.Qn : When storing data values into a real data 
item there is no potential for overflow. When retrieving data from a 
real data item, overflow occurs if the stored data value has an 
absolute value greater than 1.844 * lO- 1 -^. 


F. Repeating Data Items 

When storing data into or retrieving data from a repeating data 
item, a PASCAL MT+ array is used. The appropriate kind of array for 
each data item type and size is shown below, where m represents the 
number of replications defined for a data item in the DDL 
specification (with an occurs clause) . 

Repeating Data Item 
liD_ifiPli£utiQDSl 

Form of the PASCAL MT+ Variable 
HBB£_typfi MBBS_fiiZ£ Atlfiyj. 


binary 



n 

packed array 

[ 1 :m, 1 : n ] of 

char 

character 



n 

packed array 

[1 :m,l :nJ of 

char 

string 



n 

packed array 

[l:m,nl of string 

date 



- 

packed array 

[1 :m,l : 1 0 ] of 

char 

time 



- 

packed array 

[ 1 :m, 1 : 9 ] of 

char 

integer 



n 

array [l:m] 

of integer 


unsigned 



1 

array [l:m] 

of byte 


unsigned 


n 

2 2 

array [l:m] 

of word 


idee (with 

B) 


n 

array [l:m] 

of real 


idee (without 

B) 

n 

array [l:m] 

of real 


real (with 

B) 


n 

array tl:m] 

of real 


real (without 

B) 

n 

array [l:m] 

of real 
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VI. CONTROL PROCEDURES 


A. Running an Application Program 

The following steps are used to control the selective interfacing 
of MDBS.DMS routines with a PASCAL MT + application program. They 
assume that installation as described in Chapter II has been 
completed . 

1. Create your application program using the direct DML command 
form (see Chapter VII). All DML commands used in the 
program must be declared to be externals, either explicitly 
or using the {$1} command with an edited copy of FNDMS.PAS 
(containing only those external declarations needed by the 
program). This is illustrated in Chapter VII. 

2. Compile your program in the usual manner. For instance, 

MTPLUS PRG 

where PRG is the file containing the PASCAL MT+ program 
source code. (If you compile with the $B option then BCDMT 
replaces FPMT and BCDREALS. ERL replaces FPREALS. ERL in step 
3 below.) 

3. If you were able to create CPMDMS, then selectively link 
your compiled program and MDBS.DMS together in the following 
way : 

ML INK -Z -X PRG. ERL FPREALS. ERL FPMT -LCPMDMS -LPASLIB . ERL 

where PRG. ERL contains the compiled program. This assumes 
that the program is on the working disk that contains 
FPMT.REL, BCDMT. REL and CPMDMS. REL (or CPMRTL.REL in the 
case of RTL) . It also assumes that this disk is on the 
default drive. For version 5.5 and greater, insert PINI.ERL 
immediately after FPMT and, if overlays are to be used, 
insert -LFRERAM.REL immediately after PINI.ERL. 

If you were unable to create CPMDMS (because you do not have 
LIB), then use the following command line: 

MLINK -Z -X PRG. ERL FPREALS. ERL FPMT -LDMS -LOS -LA -LPASLIB. ERL 

where PRG. ERL contains the compiled program. This assumes 
that the program is on the working disk that contains 
DMS.REL (or RTL. REL in the case of RTL), FPMT.REL, 
BCDMT. REL, OS. REL, the MLINK files, and A. REL. It also 
assumes that this disk is on the default drive. For version 
5.5 and greater, insert PINI.ERL immediately after FPMT and, 
if overlays are to be used, insert -LFRERAM.REL immediately 
after PINI.ERL. 

4. Execute the linked program. 


c. 


Alternative Control Procedures 


Prior to release 1.06, MLINK did not support overlays in 
PASCAL MT+. See Appendix C for an interfacing method that will allow 
you to use overlays without an MLINK command line. If you use this 
alternative installation procedure, then the following steps are used 
to execute an application program. 

This alternative procedure is valuable even if overlays are not 
used, because it typically results in faster link times. 

If using FPMT.REL: 

1. Create your application program as usual, except be sure 
that the following two statements appear before the 
invocation of any DML command: 

external procedure dbinit; 
dbinit ; 

2. Compile your program in the usual manner. For instance: 

MTPLUS PRG 


3. 


where PRG. PAS is a file containing PASCAL MT+ source code. 
Now resolve unsatisfied externals with LINKMT : 


LINKMT PRG=PRG , DMS7 000 , FPREALS , MT JP , PAS L IB/ S 

For version 5.5 and greater, insert PINI.ERL immediately 
prior to PASLIB/S. 

4. Execute the compiled program 

DMS7000.C0M PRG 


If using BCDMT.REL: 

1. Create your application program as usual, except be sure 
that the following two statements appear before the 
invocation of any DML command: 

external procedure dbinit; 
dbinit ; 


2 . 


Compile your program in the usual manner. For instance: 
MTPLUS PRG $B 

where PRG. PAS is a file containing PASCAL MT+ source code. 
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VII. DML COMMAND FORM 


PASCAL MT+ is a record oriented language that permits direct 
invocation of DML commands (see the record/direct example for each DML 
command in the MDBS DMS Manual). The precise calling forms for direct 
DML usage presented in Appendix A and are illustrated in the examples 
below . 


A. Command Status and Required Declarations 

The command status variable must be declared to be integer. 

All DML commands used in a PASCAL MT+ program must be defined as 
externals. The external declarations for the DML commands appear in 
Appendix B. These declarations are also furnished on the FNDMS.PAS 
file. This file can be used in conjunction with the PASCAL MT+ $1 
command. This is an alternative to explicitly specifying external 
definitions. It is accomplished with the following declarations: 


var eO : integer ; 


{$1 FNDMS.PAS) 


We recommend editing a capy of FNDMS.PAS to 
that are not used by the program. Otherwise, 
will be larger than necessary. Of course, the 
is used with the 51 command. 


exclude those commands 
the resulting .COM file 
name of the edited file 


Program records that are to be used by DML commands within an 
application program should be declared at the beginning of the 
program. One additional record is then declared; we shall call it 
rtyp in all examples that follow. Suppose that three program records 
(ablk, bblk, cblk) have been declared, then rtyp is declared as 
follows : 


rtyp = record 

case integer of 
1: ( ityp : " integer ) ; 

2 : (atyp : "ablk ) ; 

3 : (btyp : "bblk) ; 

4 : (ctyp: "cblk) ; 

end ; 

intptr = "integer; 

The first three lines of this declaration are required; there is one 
aditional line for each program record previously declared. After 
rtyp is declared, you must then declare intptr to be of the "integer 
type. 
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We recommend using ALTEOS, because it simplifies command status 
error checking. ALTEOS has the effect of changing the 255 end-of-set 
message to -1. For example 

eO : =alteos 


C. Open and Close Command Examples 

type opent = record dbu : str ing [ 16 ] ; 

dbp : string [12] ; 
dbo : string [41? 
dbf :str ing [14 ] ; 

end ; 


rtyp = record 

case integer of 
1: ( ityp : " integer ) ; 
2 : (otyp : ''opent ) ; 


end ; 

intptr = "integer; 
var eO: integer; 

optr : "opent ; 
r : rtyp; 

($1 FNDMS.PASJ 


new (optr ) ; 
r . otyp :=optr ; 
eO:=dbopn (r.ityp); 


eO : =dbcls ; 
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E. Assignment Command Examples 

type 


rtyp = record 

case integer of 
1 : ( ityp : ^ integer ) ; 
2 : (otyp: ''opent) ; 

3 : (utypr^byte) ; 


end ; 

intptr = ''integer; 
var eO:integer; 
r : rtyp ; 
uptr : "wor d ; 


{ $ I FNDMS . PAS } 


new (uptr ) ; 


r . utyp : =upt r ; 
eO:=smu( l setl , ,r.ityp) ; 


eO : =som ( 1 se tl , se t2 1 ) 


Here, setl and set2 are names of sets that have been specified in a 
DDL specification. 
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VIII. INTERACTIVE ADD-ON PACKAGES 


MDBS add-on packages are provided on COM files. The packages can 
be invoked as follows: 


A. MDBS-CNV 

To invoke the interactive MDBS.CNV program, the following 
operating system command line is used: 

CNV 


B. MDBS-IDML 

Before using IDML, be sure that the following files reside on a 
working disk on the default drive: 

IDML.COM, IDML1.0VL, IDML2.0VL, IDML3.0VL, IDML4.0VL, IDML5.0VL 

Omitting IDML3.0VL has the effect of disabling the IDML DEFINE 
command . 

To invoke the interactive MDBS. IDML program, the following 
operating system command line is used: 

IDML 

The user can optionally specify the name of an alternative startup 
file and/or the -B parameter on this command line. The default 
startup file must have the name: STARTUP. If an alternative file 

name is used on the command line, it must be fully qualified (see 
I-B). If the -B parameter is used, it must be followed by the number 
of bytes being allocated. This number should exceed the minimum DMS 
buffer region size displayed by MDBS. DDL during data base 
initialization (VI-B-4 of the MDBS DDL Manual). For example, to use 
the startup information on the file START. IDM and allocate 2560 bytes, 
the operating system command line is: 

IDML START. IDM -B2560 

If a DMS command status of 31 results, then the number of bytes should 
be increased. If an IDML error of insufficient room in memory results 
with the -B option, then the number of bytes should be reduced. 
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D. MDBS-DMU 

To invoke the interactive MDBS.DMU program, the following 
operating system command line is used: 

DMU 

E. MDBS— RCV 

A log file used with the RTL form of MDBS must be a fully 
qualified file name within CP/M (see I-B). To invoke the interactive 
MDBS. RCV program, the following operating system command line is used: 

RCV 

Ba SUES £p maiss all nasaasaxy ^aci^ijp^ before using RCV. 

The log buffer size in this environment is 128 bytes. 


F. MDBS— CBRU 

To invoke the Com pa ct- Backup- Re sto r e Utility, the following 
operating system command line is used: 


CBRU 
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eO : =ALTEOS 

eO : =AMM ( 1 setl ,set2,set3 1 ) 
eO :=AMO ( ' setl,set2,set3' ) 
eO : =AOM ( 1 setl , set 2 , set 3 ' ) 
eO :=AOO ( ' setl , set 2 , set3 ' ) 
eO : =AUI ( r . ityp) 
eO :=CCO(r . ityp) 
eO : =CRA( 'record, area') 
eO : = CRS ( 'record' , r . ityp) 
eO : =DBCLS 
eO : =DBCLSA ( ' area ' ) 
eO : =DBENV ( r . ityp) 
eO :=DBOPN(r .ityp) 
eO : =DBOPNA( ' area ' , r . ityp) 
eO : =DBSAVE 
eO : =DBSTAT(r . ityp) 
eO : =DRC 
eO : =DRM ( ' set' ) 
eO : =DRO ( ' set ' ) 
eO : = FDRK ( ' record ' , r . ityp) 
eO : = FFM ( 1 set ' ) 
eO : =FFO ( ' set' ) 
eO : =FFS ( [ ' area ' ] ) 
eO : =FLM ( ' set' ) 
eO : =FLO ( ' set ' ) 
eO : =FMI ( ' item , set ' , r . ityp) 
eO : =FMSK ( ' set ' , r . ityp) 
eO : =FNM ( ' set ' ) 
eO : =FNMI (' item, set 1 ,r. ityp) 
eO : =FNMSK ( ' set ' , r . ityp) 
eO : =FNO ( ' set ' ) 
eO : =FNOI ( 1 item , set ' , r . ityp) 
eO : =FNOSK ( ' set' , r. ityp) 
eO : =FNS ( [ ' area] ) 
eO : =FOI ( 1 item, set ' , r . ityp) 
eO : =FOSK ( ' set ' , r . ityp) 
eO :=FPM( ' set ' ) 
eO : =FPO ( 'set' ) 
eO : =FRK (' record', r. ityp) 
eO : =GETC ( r . ityp) 
eO : =GETM ('set' , r . ityp) 
eO : =GETO ( ' set ' , r . ityp) 
eO : =GFC ( ' i tern ' , r . ityp) 
eO :=GFM( ' item, set' , r . ityp) 
eO :=GFO ( ' item, set ' , r . ityp) 
eO : =GMC ( ' set ' , r . ityp) 
eO : =GOC ('set', r. ityp) 
eO : =GTC ( r . ityp) 
eO :=GTM( 'set' , r . ityp) 
eO : =GTO ( ' set ' , r . ityp) 
eO :=IMS ( ' set ' ) 
eO : =IOS ( ' set' ) 
eO :=LGCPLX 
eO : =LGENDX 
eO :=LGFILE (r . ityp) 
eO : =LGFLSH 

NOTE: 


eO : =LGMSG ( r . ityp) 
eO : =MAU ( r . ityp) 
eO :=MCC (r . ityp) 
eO : =MCF 
eO :=MCP 

eO : =HRTF (['record']) 
eO : = MRTP ( 1 record ' ) 
eO : =MSF ( [ ' set ' ] ) 
eO : =MSP ( ' set ' ) 
eO : =NCI 

eO :=PFC ( ' item' , r . ityp) 

eO : =PFM (' item, set ' , r . ityp) 

eO :=PFO( ' item, set ' , r . ityp) 

eO : =PIFD ( r . ityp) 

e 0 : = PDTC ( r . i ty p ) 

eO :=POTM( ' set ' ,r.ityp) 

eO :<PtJTO( ' set ' , r . ityp) 

eO :=RMS ( 'set' ) 

eO :=ROS ( ' set ' ) 

eO : =RSM ( ' set' ) 

eO :=RSO( ' set ' ) 

eO : =SCM ( ' set' ) 

eO : =SCN 

eO : =SCO ( 'set' ) 

eO : =SCO ( r . ityp) 

eO :=SETPBF(r . ityp, size) 

eO : =SMC ( ' set ' ) 

eO : =SME ( ' set ' ) 

eO : =SMM ( ' setl , set 2 ' ) 

eO : =SMN ( ' set' ) 

eO : =SMO ( ' setl , set2 ' ) 

eO : =SMU ( ' set ' , r . ityp) 

eO : = SOC ( ' set 1 ) 

eO : =SOE ( ' set ' ) 

eO :=SOM( ' setl , set 2 ' ) 

eO : =SON ( ' set 1 ) 

eO :=SOO ( ' setl , set 2 ' ) 

eO : =SOU ( ' set ' , r . ityp) 

eO : =SUC ( r . ityp) 

eO : =SUM ( ' set ' , r . ityp) 

eO :=SUN(r . ityp) 

eO : =SOO ( ' set ' , r . ityp) 

eO :=SUO ( r . ityp) 

eO : =TCN 

eO :=TCT ( ' record ' ) 
eO : =TMN ( ' set' ) 
eO : =TMT ('re cord, set 1 ) 
eO :=TON( ' set ' ) 
eO :=TOT( ' record, set ' ) 
eO : =TRABT 


eO : =TRBGN 

eO : =TRCOM 

eO :=TUN(r . ityp) 

eO : =XMM ( ' setl , set2 , set3 ' ) 

eO : =XMO ( ' setl , set 2 , set 3 ' ) 

eO : =XOM ( ' se tl , set 2 , set 3 ' ) 

eO : =XOO ( ' setl,set2,set3 ' ) 
[] indicates an optional argument 
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The following list of external declarations is included for your 
convenience. It is recommended that you edit a copy of this list and 
include ($1) it in your program. 



external function alteos: integer; 

external function amm(a : str ing) : integer; 

external function amo (a : str ing) : integer; 

external function aom(a : str ing ) : integer; 

external function aoo (a : str ing ) : integer; 

external function aui (a : intptr ) : integer; 

external function ecu ( a : intptr ) : integer; 

external function era (a : str ing ; b:intptr): integer; 

external function ers (a : str ing ; brintptr): integer; 

external function dbcls: integer; 

external function dbclsa (a : st r ing ) : integer; 

external function dbenv ( a : intptr ) : integer; 

external function dbopn (a : intptr ) : integer; 

external function dbopna (a : str ing ; brintptr): integer; 

external function dbsave: integer; 

external function dbstat (a : intptr ) : integer; 

external function dre: integer; 

external function drm(a : str ing) : integer; 

external function dro (a : str ing) : integer; 

external function f drk (a : str ing ; brintptr): integer; 

external function ffm(a : string) : integer; 

external function ffo (a rstring) : integer; 

external function f f s (a : str ing) : integer; 

external function flm(a : string) r integer; 

external function flo (a : string) : integer; 

external function fmi (a : str ing ; brintptr): integer; 

external function fmsk (a : str ing ; brintptr): integer; 

external function fnm(arstring) : integer; 

external function f nmi (a : str ing ; brintptr): integer; 

external function f nmsk (a : str ing ; brintptr): integer; 

external function fno(a rstring) : integer; 

external function f noi (a : str ing ; brintptr): integer; 

external function f nosk (a : str ing ; brintptr): integer; 

external function fns (a : str ing) : integer; 

external function foi (a : string ; brintptr): integer; 

external function fosk (a : str ing ; brintptr): integer; 

external function f pm (a : str ing ) : integer; 

external function fpo (a : str ing) : integer; 

external function frk (a : string ; brintptr): integer; 

external function getc (a : intptr ) : integer; 

external function getm(a : str ing ; brintptr): integer; 

external function geto (a : st r ing ; brintptr): integer; 

external function gf c (a : str ing ; brintptr): integer; 

external function gf m( a : str ing ; brintptr): integer; 

external function gf o (a : str ing ; brintptr): integer; 

external function gmc (a rstring; brintptr): integer; 

external function goc (a : str ing ; brintptr): integer; 

external function gtc (a : intptr ) : integer; 
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A solution to the overlay problem is to create a single DMS 
runtime module for all programs in an application system. This DMS 
runtime module is loaded before application programs are run. It 
resides in its own portion of memory, protected from application 
programs. The DMS runtime module is created by the interactive MKDMS. 

A. Installation 

Copy MKDMS, MKTAB, the MLINK files, MTJP.ERL, MTJP2.REL, 
DBRUN.REL, DMS.REL, OS.REL, A.REL, Z.REL, and FPMT.REL or BCDMT.REL to 
the same working disk. If you intend to use any of the special link 
files (e.g., NOCALC), they should also be copied to the working disk; 
you should not use any of the special link files with the sample 
program. 

Now execute MKDMS. This interactive installation program gener- 
ates a command file which will create a DMS runtime module that sup- 
ports desired DML commands. Appendix D shows fifteen predefined DML 
command groupings. One of these groupings can be selected or a 
customized group of DML commands can be specified during interaction 
with MKDMS. 

When MKDMS prompts for a response, the permissible responses are 
indicated in parentheses and the default response appears in square 
brackets. Pressing the ENTER key (alone) yields the default response. 
Below is a sample session using MKDMS. In this example, the command 
grouping R2W1 is selected and the default command file name of DMS7000 
is assigned to drive B. Operator responses are shown in bold type. 

MKDMS vl.00 

(C) COPYRIGHT 1982, Micro Data Base Systems, Inc. 

This program creates a command file that will create a DMS 
'runtime' module supporting selected DML commands. 

First, you must determine where in memory the DMS runtime 
module will reside. This is called the ORG address (org is 
derived from the word origin by the usual means of dropping 
various letters from a word until it is barely 
decipherable). You should org the DMS runtime module as 
high as possible in memory. If you are not sure where to 
org it, pick a nice high address (e.g., A000). If the 
address is too high, the loader that MKDMS prefixes to the 
runtime module will inform you as to the highest org address 
possible for that runtime module. Currently the average 
runtime module size is about 22k or 5800h. 

Enter desired org address (in hex): 7000 


* Note: This org address is hardware/operating system dependent; 

7000 is workable in most environments, but if this address 
fails another address should be chosen. Select a very high 
address. If it is too high, you will be informed as to the 
maximum address that can be used in your environment. In 
general it is advisable to use this maximum address. 


Finally, there is the issue of where to find the 'utility' 
files needed by MKDMS. The files in question are: 

MLINK.COM, MKTAB.COM, DB RUN. R E L, DMS.REL, OS.REL, 
A.REL, Z.REL, FPMT.REL, AND MTJP2.REL 

These files will be used to construct your DMS runtime 
module, when you execute the command file. 


Enter utilities drive, if any: 

One moment whilst MKDMS generates the command file ... 

There now exists a file (b : DM S7 0 00 . SUB) which contains the 
commands that will create your DMS runtime module. To 
execute this command file, enter the following command: 
SUBMIT b: DM S7 0 0 0 .SUB 

Now, to create the DMS runtime routine, you will execute the command 
file created by MKDMS. This command file invokes the MLINK and MKTAB 
programs : 


SUBMIT B : DMS7000 . SUB 

If using floating point (FPMT.REL), 

MDBS MLINK VI. 03c (Z80) 

(C) COPYRIGHT 1982, Micro 
Lafayette, IN 47902 

DB RUN : 

DBRUN 
1 modules 

MTJP2 : 

MTJP 
1 modules 

FPMT : 


DDMDBS 

UNDEF 

ALTEOS 

IEINT 

modules 

E IRE AL 

IEREAL 

CRS 

FDRK 

F2MDBS 

IFMDBS 

PJMDBS 

SMC 

GFC 

GUMDBS 

IJMDBS 

DCMDBS 

POMDBS 

IKMDBS 

DBCLS 

DBSAVE 

ECMDBS 

S CM 

SCR 

SRC 

PAMDBS 

UHMDBS 

BDMDBS 

SJMDBS 

SKMDBS 

SLMDBS 

ZAMDBS 

modules 

NDMDBS 

NFMDBS 
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you will see the following: 


Data B 

ase Sys 

terns, Inc. 

VARCS 

LNPSMT 

GETS P 

GETFWA EIINT 

EISTR 

IESTR 

El CHAR 

IECHAR 


FRK 

IMS 

RCMDBS 

DBSTAT 

FDMDBS 

DBOPN 

DSMDBS 

FEMDBS 

YLMDBS 

GETC 

F8MDBS 

YKMDBS 

YMMDBS 

PNMDBS 

EBMDBS 

DEMDBS 

BBMDBS 

C8 MDBS 

YIMDBS 

YJMDBS 

GDMDBS 

IIMDBS 

PGMDBS 

GOMDBS 

RAMDBS 

UAMDBS 

ACMDBS 

PUMDBS 

DQMDBS 

MNMDBS 

NBMDBS 

NCMDBS 

SMMDBS 

C9 MDBS 

YNMDBS 

ZBMDBS 

NGMDBS 

CDMDBS 

GNMDBS 

GSMDBS 

SOM DBS 

Ra co Q' 
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If using BCD (i.e., BCDMT. REL), you will see the following: 

SUBMIT B : DMS7 000 . SUB 

MDBS MLINK Vl.03c (Z80) 

(C) COPYRIGHT 1982, Micro Data Base Systems, Inc. 

Lafayette, IN 47902 

DBRUN : 

DBRUN 
1 modules 

MTJP2 : 

MTJP 
1 modules 

BCDMT : 

DDMDBS UNDEF ALTEOS VARCS LNPSMT GETS P GETFWA EIINT 

IEINT E IRE AL IEREAL EISTR IESTR El CHAR IECHAR 

15 modules 

DMS : 

CRS FDRK F2MDBS FRK IMS RCMDBS DBSTAT FDMDBS 

IFMDBS PJMDBS SMC DBOPN DSMDBS FEMDBS YLMDBS GETC 

GFC GUMDBS IJMDBS F8MDBS YKMDBS YMMDBS PNMDBS EBMDBS 

D CM DBS POMDBS IKMDBS DEMDBS BBMDBS C8MDBS YIMDBS YJMDBS 

DBCLS DBSAVE ECMDBS GDMDBS IIMDBS PGMDBS GOMDBS NAMDBS 

. RAMDBS S CM SCR SRC UAMDBS ACMDBS PUMDBS DQMDBS 

W MNMDBS PAMDBS UHMDBS BDMDBS NBMDBS NCMDBS SMMDBS C9MDBS 

YNMDBS SJMDBS SKMDBS SLMDBS ZBMDBS C DM DBS GNMDBS GSMDBS 
SOMDBS ZAMDBS NDMDBS NFMDBS NGMDBS 
69 modules 

CS : 

FCB DBFCBL DBPRUL MFNLEN DFOP FNAME SCRFCB DFSK 

DFWR DFCL CASCVT SYSCPM BDOS 

13 modules 

A: 

DIVZ8 DIVZ16 MULZ16 MULZ8 
4 modules 

Z: 

ZZZLWA 
1 modules 

Code = 6C00 Common = C010 Data = C2BF 
Next = C409 

DBRUN: 

DBRUN 

MTJP2 : 

MTJP 

1 

^ BCDMT: 

DDMDBS UNDEF ALTEOS VARCS LNPSMT GETS P GETFWA EIINT 
IEINT EIREAL IEREAL EISTR IESTR El CHAR IECHAR 
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DML Retrieval/Write Command Groups 


(C) COPYRIGHT 1981,1982,1983 Micro Data Base Systems, Inc. 



Appendix D 






R1W0 


alteos 

extend 

f msk 

frk 

smm 

sor 

var cs 

dbcls 

f dr k 

f nm 

scm 

smo 

sr c 


dbopn 

f fm 

f no 

SCO 

smr 

srm 


dbsave 

ffo 

f osk 

scr 

soc 

sro 


dbstat 

f lm 

f pm 

setpbf 

som 

undef 


define 

f lo 

f po 

smc 

soo 

var cmd 



R2W0 

alteos 

f dr k 

f no 

geto 

SCO 

soc 

undef 

dbcls 

f f m 

f osk 

getr 

scr 

som 

var cmd 

dbopn 

ffo 

f pm 

gf c 

setpbf 

soo 

var cs 

dbsave 

f lm 

f po 

gf m 

smc 

sor 


dbstat 

flo 

frk 

gf o 

smm 

sr c 


define 

fmsk 

getc 

gf r 

smo 

srm 


extend 

f nm 

getm 

scm 

smr 

sro 



R3W0 

alteos 

define 

f nmi 

geto 

sen 

soe 

suo 

aui 

extend 

f nmsk 

getr 

SCO 

som 

suu 

cct 

f dr k 

f no 

gf c 

scr 

son 

ten 

ecu 

ffm 

f noi 

gf m 

scu 

soo 

tet 

emt 

ffo 

f nosk 

gf o 

setpbf 

sor 

tmn 

cot 

f f s 

f ns 

gfr 

smc 

sou 

tmt 

dbcls 

f indm 

f oi 

gmc 

sme 

sre 

toggle 

dbclsa 

f inao 

f osk 

goc 

smm 

srm 

ton 

dbenv 

f lm 

f pm 

gtc 

smn 

srn 

tot 

dbopn 

flo 

f po 

gtm 

smo 

sro 

tun 

dbopna 

f mi 

frk 

gto 

smr 

sue 

undef 

dbsave 

fmsk 

getc 

nci 

smu 

sum 

var cmd 

dbstat 

f nm 

getm 

scm 

soc 

sun 

var cs 
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R1W2 


alteos 

extend 

f osk 

lgf lsh 

puto 

sf r 

sre 

cr 

f ark 

f pm 

lgmsg 

putr 

sme 

srm 

era 

ffm 

f po 

pf c 

sem 

smm 

sro 

cr s 

ffo 

f rk 

pfm 

SCO 

smo 

trabt 

dbcls 

f lm 

ims 

pf 0 

scr 

smr 

trbgn 

dbopn 

flo 

ios 

pf r 

setpbf 

soc 

tr com 

dbsave 

f msk 

lgcplx 

pif d 

sf c 

som 

undef 

dbstat 

f nm 

lgendx 

putc 

sfm 

soo 

var cmd 

def ine 

f no 

lgf ile 

putm 

sf O 

sor 

var cs 


R2W2 


alteos 

ffm 

getc 

lgendx 

puto 

smm 

trbgn 

cr 

ffo 

getm 

lgf ile 

putr 

smo 

tr com 

era 

f lm 

geto 

lgf lsh 

sem 

smr 

undef 

cr s 

flo 

get r 

lgmsg 

SCO 

SOC 

var cmd 

dbcls 

f msk 

gf c 

pf c 

scr 

som 

var cs 

dbopn 

f nm 

gf m 

pfm 

setpbf 

SOO 


dbsave 

f no 

gf o 

pf o 

sf c 

sor 


dbstat 

f osk 

gf r 

pfr 

sfm 

sr c 


define 

f pm 

ims 

pif d 

sf O 

srm 


extend 

f po 

ios 

putc 

sf r 

sro 


f dr k 

frk 

lgcplx 

putm 

sme 

trabt 



^ R3W2 


alteos 

extend 

f ns 

gtm 

puto 

smr 

suu 

au i 

f dr k 

f oi 

gto 

putr 

smu 

ten 

cct 

ffm 

f osk 

ims 

sem 

soc 

tet 

ecu 

ffo 

f pm 

ios 

sen 

soe 

tmn 

emt 

f f s 

f po 

lgcplx 

SCO 

som 

tmt 

cot 

f indm 

frk 

lgendx 

scr 

son 

toggle 

cr 

f indo 

getc 

lgf ile 

scu 

soo 

ton 

era 

f lm 

getm 

lgf lsh 

setpbf 

sor 

tot 

cr s 

flo 

geto 

lgmsg 

sf c 

sou 

trabt 

dbcls 

f mi 

getr 

nci 

sfm 

sr c 

trbgn 

dbclsa 

f msk 

gf c 

pf c 

sf o 

srm 

tr com 

dbenv 

f nm 

gf m 

pfm 

sf r 

sr n 

tun 

dbopn 

f nmi 

gf o 

pf o 

sme 

sro 

undef 

dbopna 

f nmsk 

gf r 

pfr 

sme 

sue 

var cmd 

dbsave 

f no 

gmc 

pif d 

smm 

sum 

var cs 

dbstat 

f noi 

goc 

putc 

smn 

sun 


define 

f nosk 

gtc 

putm 

smo 

suo 
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R1W4 




s-> 


alteos 

dbstat 

f msk 

lgendx 

putr 

sf r 

tr abt 

a mm 

define 

f nm 

lgf ile 

rms 

sme 

trbgn 

amo 

dr c 

f no 

lgflsh 

ros 

smm 

tr com 

ams 

drm 

f osk 

lgmsg 

rsm 

smo 

undef 

aom 

dro 

f pm 

pf c 

rso 

smr 

var cmd 

aoo 

dr r 

f po 

pf m 

sem 

soc 

var cs 

cr 

extend 

f r k 

pf o 

SCO 

som 

xmm 

era 

fork 

getr 

pfr 

scr 

soo 

xmo 

ers 

f f m 

gffr 

pif d 

setpbf 

sor 

xom 

dbcls 

ffo 

ims 

put c 

sf c 

sr c 

xoo 

dbopn 

f lm 

ios 

putm 

sfm 

srm 


dbsave 

flo 

lgcplx 

puto 

sf o 

sr o 



R2W4 

alteos 

dr c 

f pm 

lgendx 

ros 

soc 

xmo 

a mm 

drm 

f po 

lgf ile 

rsm 

som 

xom 

amo 

dro 

f rk 

lgflsh 

rso 

soo 

xoo 

ams 

dr r 

getc 

lgmsg 

sem 

sor 


aom 

extend 

getm 

pf c 

SCO 

sr c 


aoo 

f dr k 

geto 

pf m 

scr 

srm 


cr 

f fm 

getr 

pf 0 

setpbf 

sro 


era 

ffo 

gf c 

pfr 

sf c 

trabt 


cr s 

f lm 

gf m 

pif d 

sfm 

trbgn 


dbcls 

flo 

gf o 

putc 

sf 0 

tr com 


dbopn 

f msk 

gf r 

putm 

sf r 

undef 


dbsave 

f nm 

ims 

puto 

sme 

var cmd 


dbstat 

f no 

ios 

putr 

smm 

var cs 


define 

f osk 

lgcplx 

rms 

smr 

xmm 



R3W4 







alteos 

dbsave 

f nmi 

gmc 

putm 

smm 

suo 

a mm 

dbstat 

f nmsk 

goc 

puto 

smn 

suu 

amo 

def ine 

f no 

gtc 

putr 

smo 

ten 

ams 

dre 

f noi 

gtm 

rms 

smr 

tet 

aom 

drm 

f nosk 

gto 

ros 

smu 

tmn 

aoo 

dro 

f ns 

ims 

rsm 

soc 

tmt 

aui 

dr r 

f oi 

ios 

rso 

soe 

toggle 

cct 

extend 

f osk 

lgcplx 

sem 

som 

ton 

ecu 

f dr k 

f pm 

lgendx 

sen 

son 

tot 

emt 

f f m 

f po 

lgf ile 

SCO 

soo 

trabt 

cot 

ffo 

f rk 

lgflsh 

scr 

sor 

trbgn 

cr 

ffs 

getc 

lgmsg 

scu 

sou 

tr com 

era 

f indm 

getm 

nci 

setpbf 

sr c 

tun 

ers 

f indo 

geto 

pf c 

sf c 

srm 

undef 

dbcls 

f lm 

getr 

pf m 

sfm 

srn 

var cmd 

dbclsa 

flo 

gf c 

pf o 

sf o 

sro 

var cs 

dbenv 

f mi 

gf m 

pfr 

sf r 

sue 

xmm 

dbopn 

f msk 

gf o 

pif d 

sme 

sum 

xmo 

dbopna 

f nm 

gf r 

putc 

sme 

sun 

xom 

xoo 
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Since PASCAL is very strict about type checking, those DML 
commands which have several different record structures as one of 
their parameters during the course of a program must use a record 
structure with a variant part. The variant part defines the record 
structure as consisting of different types and numbers of components 
depending on the context. In the interest of compact source code, an 
explicit tag field is not used. The record structure needed by DML 
commands, ityp, is defined by 


rtyp = record 

case integer of 
1: ( ityp: "integer ) ; 
2 : (atyp: "ablk) ; 


n : (ntyp : "nblk) ; 

end ; 

where ablk, ... nblk are the record structures needed by DML to 
describe the data in the database. 


An expression is not allowed in external function declarations. 
Because PASCAL considers ''integer to be an expression, it is necessary 
to define 


intptr = "integer; 

in every program prior to the external function declarations. 

It is also necessary to type the record itself and the variables 
in the variant part 


var 

aptr : "ablk 


nptr : "nblk 
r : r typ 


before the body of the program. 

To use this record in a DML command, set the value of the record 
Ltyfi equal to the record structure wanted, with statement 

r . ntyp=nptr ; 

and invoke the DML command with the statement 
eO :=CMD (string, r. ityp) ; 

The PASCAL compiler only checks the type of the parameters in a 
function call, not the actual value of the record. Since r.ityp is of 
type integer, all the type checking rules are satisfied (even though 
the value of ££yp has been set equal to the record needed). 
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MDBS Document Title: 


We welcome and appreciate all comments and suggestions that can 
help us to improve our manuals and products. Use this form to 
express your views concerning this manual. 

Please do not use this form to report system problems or to 
request materials, etc. System problems should be reported to 
MDBS by phone or telex, or in a separate letter addressed to the 
attention of the technical support division. Requests for 
published materials should be addressed to the attention of the 
marketing division. 


Sender : 


( name) 


( position) 


( company) 


(telephone) 




(address) 


(city, state, zip) 


COMMENTS : 

Areas of comment are general presentation, format, organization, 
completeness, clarity, accuracy, etc. If a comment applies to a 
specific page or pages, please cite the page number(s). 


Continue on additional pages, as needed. Thank you for your response. 



